Compare addresses case-insensitively in message-update-smtp-method-header

* lisp/gnus/message.el (message-update-smtp-method-header): Compare
addresses case-insensitively.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a714e318767cb200c8ae4d740433ba0b3a34b286..24cba97718a0dd6e77c2b545fbf03ad0fe0dea5f 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4385,7 +4385,7 @@ it is left unchanged."
                      (setq method (or (cdr server) res))
                      (throw 'exit nil))))
                 ((and (stringp (car server))
-                      (string= (car server) from))
+                      (string-equal-ignore-case (car server) from))
                  (setq method (cdr server))
                  (throw 'exit nil)))))
       (when method